home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / adasmall / test3.ada < prev    next >
Text File  |  1996-01-30  |  621b  |  32 lines
  1. with small_sp; use small_sp;
  2.  
  3. procedure test3 is
  4.  
  5.   type Str10 is string(1..10);
  6.  
  7.   s1, s2, s3: str10;
  8.  
  9.   procedure write_array(x: str10) is
  10.     begin
  11.       for i in 1..10 loop
  12.         put(x(i));
  13.       end loop;
  14.       new_line;
  15.     end write_array;
  16.  
  17. begin
  18.   s2 := "ABcdefghij";
  19. --  put_line(S2);
  20.   write_array(S2);
  21.   put_line(s2(1), s2(2), ord(s2(1)), ord(s2(2)) );
  22.   s2(1) := 'C';  s2(2) := 'D';
  23.   put_line(s2(1), s2(2), ord(s2(1)), ord(s2(2)) );
  24.   new_line;
  25.   s3 := "zyxwvutsrqponm";
  26. --  put_line(S3);
  27.   write_array(S3);
  28.   s3 := "AB C DE";
  29. --  put_line(S1);
  30.   write_array(S3);
  31.  
  32. end test3;